﻿Public Class BekleyenOdemeler
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Bekleyen ödemeler listesi", "İlgili kaydı seçin.")
				AddList()
				List.AddColumns("kimlik(Kimlik no.;80c),sno(Sigorta no.;80c),adi(Adı;33%l),acik(Açıklama;33%l)")
				List.AddColumns("fisno(Fiş no.;50r),hesappno(Hesap no.;80c),hesapadi(Hesap adı;33%l),borc(Tutar;80m)")
				List.AddButton("ode", "Ödemeyi yap")
				List.AddButtons("-")
				List.AddButton("refresh", "Yenile")
			Case EventType.PopulateList
				Rs = Kasa.Vezne.BekleyenOdemeler(Local, Local.SysDate)
				List.DataSource = Rs
		End Select
	End Sub

End Class
